home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 3
/
ct-rom iiib.zip
/
ct-rom iiib
/
WINDOWS
/
DIVERSEN
/
WINE02BX
/
EBUFF-ME.ELC
< prev
next >
Wrap
Text File
|
1993-03-28
|
6KB
|
71 lines
;;; compiled by jwz@thalidomide on Fri Jan 15 03:24:08 1993
;;; from file /cadillac-th/jwz/emacs19/lisp/electric/ebuff-menu.el
;;; emacs version 19.4.1 Lucid.
;;; bytecomp version 2.09; 12-jan-93.
;;; optimization is on.
;;; this file uses opcodes which do not exist in Emacs18.
(if (and (boundp 'emacs-version)
(or (and (boundp 'epoch::version) epoch::version)
(string-lessp emacs-version "19")))
(error "This file was compiled for Emacs19."))
(byte-code "└┴!ê┬├!¼é──ç" [require electric boundp electric-buffer-menu-mode-map nil] 2)
(fset 'electric-buffer-list #[(arg) "└ë├ïê\n¡» qê─ ╞ êebê╟╚└╔#bê└ëôê½ä╩ ¬Å╦\n!½à╠\n!¬à╠═╔!!)*ç" [nil buffer select ((byte-code "è└ïê┴┬├!!┼Äqê╞ ê╟╚ì *┴ç" [((byte-code "└┬!ê)└ç" [ignore temp-buffer-show-function list-buffers arg] 2)) window-buffer Electric-pop-up-window "*Buffer List*" buffer ((byte-code "èqê┴ ê)┬!ê├─!ç" [buffer Buffer-menu-mode bury-buffer message ""] 2)) Electric-buffer-menu-mode electric-buffer-menu-select (byte-code "└┴!êebê┬yê`dbê├yê`─ëbê╚╔╩╦╠B%+ç" [message "<<< Press Space to bury the buffer list >>>" 2 -1 0 goal-column last first Electric-command-loop electric-buffer-menu-select nil t electric-buffer-menu-looper] 8) select] 3)) point-marker opoint Buffer-menu-execute search-forward "\n>" t Buffer-menu-select bufferp switch-to-buffer Buffer-menu-buffer] 4 "\
Vaguely like ITS lunar select buffer;
combining typeoutoid buffer listing with menuoid buffer selection.
This pops up a buffer describing the set of emacs buffers.
If the very next character typed is a space then the buffer list
window disappears.
Otherwise, one may move around in the buffer list window, marking
buffers to be selected, saved or deleted.
To exit and select a new buffer, type Space when the cursor is on the
appropriate line of the buffer-list window.
Other commands are much like those of buffer-menu-mode.
Calls value of electric-buffer-menu-mode-hook on entry if non-nil.
\\{electric-buffer-menu-mode-map}" "P"])
(byte-code "└┴Mê┬├─┼#ç" [electric-buffer-menu-looper #[(state condition) "½ì@┴>¼ç┬@A\"ç`@W½åebê─yç`AV¡Ädbê┼yê╞d!¡â╟┼!ç" [condition (buffer-read-only end-of-buffer beginning-of-buffer) signal state 2 -1 pos-visible-in-window-p recenter] 3] put Electric-buffer-menu-mode mode-class special] 4)
(fset 'Electric-buffer-menu-mode #[nil "└ ê┴\n!ê├┼─>½ì╚!─>╔áê╩╦!ê╠══╨╥ebê╘╒╓═#½â╫uê╪┘!ç" [kill-all-local-variables use-local-map electric-buffer-menu-mode-map "Electric Buffer Menu" mode-name "Electric Buffer List" mode-line-buffer-identification mode-line-format copy-sequence "Buffers" make-local-variable Helper-return-blurb "return to buffer editing" t truncate-lines buffer-read-only Electric-buffer-menu-mode major-mode mode-motion-highlight-line mode-motion-hook search-forward "\n." nil -1 run-hooks electric-buffer-menu-mode-hook] 4 "\
Major mode for editing a list of buffers.
Each line describes one of the buffers in Emacs.
Letters do not insert themselves; instead, they are commands.
\\{electric-buffer-menu-mode-map}
C-g or C-c C-c -- exit buffer menu, returning to previous window and buffer
configuration. If the very first character typed is a space, it
also has this effect.
Space -- select buffer of line point is on.
Also show buffers marked with m in other windows,
deletes buffers marked with \"D\", and saves those marked with \"S\".
m -- mark buffer to be displayed.
~ -- clear modified-flag on that buffer.
s -- mark that buffer to be saved.
d or C-d -- mark that buffer to be deleted.
u -- remove all kinds of marks from current line.
v -- view buffer, returning when done.
Delete -- back up a line and remove marks.
Entry to this mode via command \\[electric-buffer-list] calls the value of
electric-buffer-menu-mode-hook if it is non-nil."])
(byte-code "└┴┬├#êä{┼ ╟╟╔W½ô╩╦╠\"┴#êTë¬i)╩═┼ #ê╬═\"╟╔W½ô╩╦╠\"┴#êTë¬i*╩╨╤#ê╩╥╙#ê╩╘╒#ê╩╓╫#ê╩╪┘#ê╩┌┘#ê╩█┘#ê╩▄▌#ê╩▐▀#ê╩αß#ê╩Γπ#ê╩Σπ#ê╩σµ#ê╩τΦ#ê╩ΘΦ#ê╩Ωδ#ê╩∞φ#êεε∩X½₧╩≡!±#ê╩═≡!P±#êTë¬^)╩≥≤#ê╩⌠≤#ê╩⌡÷#ê╩≈°#ê╩∙·#ê╩√ⁿ#ê╩²·#ê╩■ⁿ#ê╩ ü@ #ê╩üA üB #ê╩üC üD #ê╩üE üF #ê╩üG üH #ê╩üI üJ #ê╩üK üL #ê)üM üN Mç" [put Electric-buffer-menu-undefined suppress-keymap t electric-buffer-menu-mode-map make-keymap map 0 i 128 define-key make-string 1 "" lookup-key map2 "v" Electric-buffer-menu-mode-view-buffer (control h) Helper-help "?" Helper-describe-bindings "" nil "" Electric-buffer-menu-quit "" "q" " " Electric-buffer-menu-select "" recenter "s" Buffer-menu-save "d" Buffer-menu-delete "k" "" Buffer-menu-delete-backwards "" Buffer-menu-backup-unmark backspace "~" Buffer-menu-not-modified "u" Buffer-menu-unmark 48 57 char-to-string digit-argument "-" negative-argument "-" "m" Buffer-menu-mark "" universal-argument "" previous-line "" next-line "p" "n" "" scroll-up "v" scroll-down "" scroll-other-window ">" end-of-buffer "<" beginning-of-buffer button2 Electric-buffer-menu-mouse-select button3 Buffer-menu-popup-menu Electric-buffer-menu-exit #[nil "┬├─Åç" [last-input-event unread-command-event nil (byte-code "└┴┬\"ç" [throw electric-buffer-menu-select nil] 3) ((error (byte-code "└ ê┴ ç" [Buffer-menu-mode other-buffer] 1)))] 3 nil nil]] 6)
(fset 'Electric-buffer-menu-select #[nil "└┴`\"ç" [throw electric-buffer-menu-select] 3 "\
Leave Electric Buffer Menu, selecting buffers and executing changes.
Saves buffers marked \"S\". Deletes buffers marked \"K\".
Selects buffer at point and displays buffers marked \">\" in other
windows." nil])
(fset 'Electric-buffer-menu-mouse-select #[(event) "└ !ê┬ ç" [mouse-set-point event Electric-buffer-menu-select] 2 nil "e"])
(fset 'Electric-buffer-menu-quit #[nil "└┴┬\"ç" [throw electric-buffer-menu-select nil] 3 "\
Leave Electric Buffer Menu, restoring previous window configuration.
Does not execute select, save, or delete commands." nil])
(fset 'Electric-buffer-menu-undefined #[nil "└ ê┴┬├!!ê─┼!ç" [ding message substitute-command-keys "Type \\[Electric-buffer-menu-quit] to exit, \\[Electric-buffer-menu-select] to select, \\[Helper-help] for help, \\[Helper-describe-bindings] for commands." sit-for 4] 3 nil nil])
(fset 'Electric-buffer-menu-mode-view-buffer #[nil "└┴!ë½à├\n!¬ï─ ê┼╞\n\"ê╟╚!)ç" [Buffer-menu-buffer nil bufnam view-buffer ding message "Buffer %s does not exist!" sit-for 4] 4 "\
View buffer on current line in Electric Buffer Menu.
Returns to Electric Buffer Menu when done." nil])